home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilstem / util2 / npad.bas < prev    next >
Encoding:
BASIC Source File  |  1985-06-14  |  4.9 KB  |  88 lines
  1. 100 ' NPAD.BAS -- by Steven Holzner -- created NPAD.COM notepad
  2. 110 '
  3. 120 T!=0:FOR N=1 TO 556:READ B%:T!=T!+B%:NEXT 'Verify DATA
  4. 130 IF T!=49483! THEN 140 ELSE PRINT "CHECK TYPING AND REDO!":END
  5. 140 RESTORE:OPEN "NPAD.COM" AS # 1 LEN = 1  '  Open Npad.com
  6. 150 PRINT "CREATING NPAD.COM"               '  Print message #1
  7. 160 FIELD #1,1 AS BYTE.$                    '  Specify what goes in
  8. 170 FOR N=1 TO 556:READ BYTE.%              '  556 bytes total
  9. 180 IF BYTE.%<256 THEN 220                  '  Non-space DATA
  10. 190 LSET BYTE.$=CHR$(32)                    '  Put in 499 spaces
  11. 200 FOR I=1 TO BYTE.%:PUT #1:NEXT I         '  that will hold words
  12. 210 GOTO 240                                '  Continue
  13. 220 LSET BYTE.$=CHR$(BYTE.%)                '  Load byte into buffer
  14. 230 PUT #1                                  '  Write buffer out
  15. 240 NEXT N:CLOSE #1                         '  Close file
  16. 260 PRINT "NPAD.COM CREATED."               '  And you're done
  17. 270 END
  18. 280 DATA 233,  210,   3,    0,    0,    95,    499,   0
  19. 290 DATA 0,    0,     0,    0,    0,    112,   0,     0
  20. 300 DATA 0,    0,     0,    0,    0,    0,     0,     0
  21. 310 DATA 80,   83,    81,   82,   87,   86,    30,    6
  22. 320 DATA 156,  46,    255,  30,   6,    3,     187,   64
  23. 330 DATA 0,    142,   219,  139,  30,   28,    0,     59
  24. 340 DATA 30,   26,    0,    116,  60,   131,   235,   2
  25. 350 DATA 131,  251,   30,   115,  3,    187,   62,    0
  26. 360 DATA 139,  23,    129,  250,  14,   49,    117,   68
  27. 370 DATA 137,  30,    28,   0,    46,   247,   22,    3
  28. 380 DATA 1,    46,    131,  62,   3,    1,     0,     117
  29. 390 DATA 27,   46,    198,  6,    255,  2,     7,     46
  30. 400 DATA 199,  6,     251,  2,    250,  0,     141,   6
  31. 410 DATA 132,  4,     46,   163,  2,    3,     232,   72
  32. 420 DATA 1,    233,   158,  0,    46,   199,   6,     251
  33. 430 DATA 2,    250,   0,    141,  6,    93,    4,     46
  34. 440 DATA 163,  2,     3,    232,  51,   1,     232,   146
  35. 450 DATA 0,    233,   134,  0,    46,   247,   6,     3
  36. 460 DATA 1,    1,     0,    116,  220,  137,   30,    28
  37. 470 DATA 0,    129,   250,  0,    83,   117,   31,    187
  38. 480 DATA 249,  0,     46,   198,  135,  5,     1,     32
  39. 490 DATA 75,   117,   247,  46,   198,  6,     5,     1
  40. 500 DATA 95,   46,    199,  6,    249,  2,     0,     0
  41. 510 DATA 232,  96,    0,    235,  85,   144,   129,   250
  42. 520 DATA 8,    14,    117,  33,   46,   139,   30,    249
  43. 530 DATA 2,    131,   251,  0,    126,  17,    46,    198
  44. 540 DATA 135,  5,     1,    32,   46,   198,   135,   4
  45. 550 DATA 1,    95,    46,   255,  14,   249,   2,     232
  46. 560 DATA 57,   0,     235,  46,   144,  129,   250,   13
  47. 570 DATA 28,   117,   9,    232,  72,   0,     232,   42
  48. 580 DATA 0,    235,   31,   144,  46,   139,   30,    249
  49. 590 DATA 2,    129,   251,  249,  0,    125,   16,    46
  50. 600 DATA 136,  151,   5,    1,    46,   198,   135,   6
  51. 610 DATA 1,    95,    46,   255,  6,    249,   2,     232
  52. 620 DATA 9,    0,     7,    31,   94,   95,    90,    89
  53. 630 DATA 91,   88,    207,  80,   46,   198,   6,     255
  54. 640 DATA 2,    112,   46,   199,  6,    251,   2,     0
  55. 650 DATA 0,    141,   6,    132,  4,    46,    163,   2
  56. 660 DATA 3,    232,   133,  0,    88,   195,   46,    129
  57. 670 DATA 62,   249,   2,    225,  0,    125,   43,    46
  58. 680 DATA 139,  30,    249,  2,    139,  195,   61,    24
  59. 690 DATA 0,    116,   20,   124,  5,    45,    25,    0
  60. 700 DATA 235,  244,   46,   198,  135,  5,     1,     32
  61. 710 DATA 46,   255,   6,    249,  2,    235,   224,   46
  62. 720 DATA 198,  135,   6,    1,    95,   46,    255,   6
  63. 730 DATA 249,  2,     195,  82,   190,  2,     0,     46
  64. 740 DATA 139,  22,    4,    3,    236,  168,   1,     117
  65. 750 DATA 251,  236,   168,  1,    116,  251,   38,    138
  66. 760 DATA 37,   71,    78,   131,  254,  0,     116,   7
  67. 770 DATA 46,   136,   167,  5,    1,    235,   229,   67
  68. 780 DATA 90,   195,   82,   46,   138,  167,   5,     1
  69. 790 DATA 190,  2,     0,    46,   139,  22,    4,     3
  70. 800 DATA 236,  168,   1,    117,  251,  236,   168,   1
  71. 810 DATA 116,  251,   38,   136,  37,   46,    138,   38
  72. 820 DATA 255,  2,     71,   78,   117,  234,   67,    90
  73. 830 DATA 195,  187,   0,    176,  142,  195,   46,    139
  74. 840 DATA 62,   0,     3,    46,   3,    62,    253,   2
  75. 850 DATA 46,   139,   30,   251,  2,    185,   10,    0
  76. 860 DATA 186,  25,    0,    46,   255,  22,    2,     3
  77. 870 DATA 74,   117,   248,  46,   3,    62,    253,   2
  78. 880 DATA 226,  238,   195,  184,  0,    0,     142,   216
  79. 890 DATA 161,  36,    0,    46,   163,  6,     3,     161
  80. 900 DATA 38,   0,     46,   163,  8,    3,     199,   6
  81. 910 DATA 36,   0,     10,   3,    140,  14,    38,    0
  82. 920 DATA 180,  15,    205,  16,   128,  236,   25,    208
  83. 930 DATA 228,  46,    136,  38,   253,  2,     46,    199
  84. 940 DATA 6,    4,     3,    186,  3,    168,   4,     117
  85. 950 DATA 14,   46,    199,  6,    0,    3,     0,     128
  86. 960 DATA 46,   199,   6,    4,    3,    218,   3,     186
  87. 970 DATA 213,  4,     205,  39
  88.